(string-to-sequence): Work usefully when enable-multibyte-characters is nil.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index be55a22bf7130f04a036823e4c4ca28e18cc4bfe..7a5bbe03775d80afb6b2fc965111dad7718e40d4 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -37,7 +37,8 @@ TYPE should be `list' or `vector'."
         (i 0)
         l ch)
     (while (< i len)
-      (setq ch (sref string i))
+      (setq ch (if enable-multibyte-characters
+                  (sref string i) (aref string i)))
       (setq l (cons ch l))
       (setq i (+ i (char-bytes ch))))
     (setq l (nreverse l))